home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / util / dir / managers.lha / Managers / Cli_Master / func.g < prev    next >
Text File  |  1997-01-14  |  3KB  |  137 lines
  1. G4C
  2.  
  3.  
  4. winbig -1 -1 320 38 "CLI-Master"
  5. wintype 11010000
  6. winout nil:
  7.  
  8.  
  9. xonopen
  10. lvmulti climaster $cmst_srce first
  11. gosub func.g getfile
  12. update func.g 1 $cmst_fname
  13. setgad func.g 1 on
  14. if $cmst_mode = "rename"
  15.     update func.g 2 "Rename File(s)"
  16. endif
  17. if $cmst_mode = "clone"
  18.     update func.g 2 " Clone File(s)"
  19. endif
  20. if $cmst_mode = "moveas"
  21.     update func.g 2 "Move File(s) As"
  22. endif
  23. if $cmst_mode = "copyas"
  24.     update func.g 2 "Copy File(s) As"
  25. endif
  26. if $cmst_mode = "ednew"
  27.     update func.g 2 "Enter File Name"
  28. endif
  29. if $cmst_mode = "makedir"
  30.     update func.g 2 "Enter Dir Name"
  31. endif
  32. if $cmst_mode = "lha"
  33.     update func.g 2 "Enter Archive Name"
  34. endif
  35. failat 5
  36.  
  37. xonclose
  38. delvar oldfile
  39. delvar newfile
  40. lvdir climaster $cmst_srce none
  41.  
  42. xonfail
  43. ezreq "Error During Processing." Okay ""
  44. lvdir climaster $cmst_srce none
  45. guiclose func.g
  46.  
  47.  
  48. box 0 0 0 0 in icondrop
  49.  
  50.  
  51. text 100 4 280 12 "" 20 nobox
  52. gadid 2
  53.  
  54. xtextin 20 16 280 13 "" cmst_nwname "" 30
  55. gadid 1
  56. if $cmst_nwname = ""
  57.     ezreq "You MUST supply a filename." "Sorry" ""
  58.     stop
  59. endif
  60. joinfile $cmst_pname $cmst_nwname newfile
  61. gosub func.g $cmst_mode
  62.  
  63.  
  64. xroutine makedir
  65. joinfile $cmst_srcedir $cmst_nwname newfile
  66. makedir $newfile
  67. lvdir climaster $cmst_srce refresh
  68. guiclose func.g
  69.  
  70. xroutine ednew
  71. joinfile $cmst_srcedir $cmst_nwname newfile
  72. cli '$DEF.EDITOR $newfile'
  73. lvdir climaster $cmst_srce refresh
  74. guiclose func.g
  75.  
  76. xroutine rename
  77. rename $cmst_select $newfile
  78. lvmulti climaster $cmst_srce off
  79. extract newfile file ren_temp
  80. extract ren_temp clean ren_temp
  81. lvput climaster $cmst_srce -1 $ren_temp
  82. lvmulti climaster $cmst_srce next
  83. if $cmst_select = ""
  84.     lvdir climaster $cmst_srce refresh
  85.     guiclose func.g
  86. endif
  87. gosub func.g getfile
  88. update func.g 1 $cmst_fname
  89. setgad func.g 1 on
  90.  
  91. xroutine moveas
  92. joinfile $cmst_destdir $cmst_nwname newfile
  93. cli 'copy $oldfile $newfile quiet'
  94. action delete $oldfile noreq
  95. lvdir climaster $cmst_dest refresh
  96. lvdel climaster $cmst_srce -1
  97. lvmulti climaster $cmst_srce next
  98. if $cmst_select = ""
  99.     guiclose func.g
  100. endif
  101. gosub func.g getfile
  102. update func.g 1 $cmst_fname
  103. setgad func.g 1 on
  104.  
  105. xroutine copyas
  106. joinfile $cmst_destdir $cmst_nwname newfile
  107. cli 'copy $oldfile $newfile quiet'
  108. lvdir climaster $cmst_dest refresh
  109. lvmulti climaster $cmst_srce off
  110. lvmulti climaster $cmst_srce next
  111. if $cmst_select = ""
  112.     guiclose func.g
  113. endif
  114. gosub func.g getfile
  115. update func.g 1 $cmst_fname
  116. setgad func.g 1 on
  117.  
  118. xroutine clone
  119. cli 'copy $oldfile $newfile quiet'
  120. lvmulti climaster $cmst_srce off
  121. lvmulti climaster $cmst_srce next
  122. if $cmst_select = ""
  123.     lvdir climaster $cmst_srce refresh
  124.     guiclose func.g
  125. endif
  126. gosub func.g getfile
  127. update func.g 1 $cmst_fname
  128. setgad func.g 1 on
  129.  
  130. xroutine getfile
  131. extract cmst_select path cmst_pname
  132. extract cmst_pname unquote cmst_pname
  133. extract cmst_select file cmst_fname
  134. extract cmst_fname unquote cmst_fname
  135. joinfile $cmst_pname $cmst_fname oldfile
  136. return
  137.